home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / l2c-19.exe / STARTUP.LSP < prev    next >
Encoding:
Lisp/Scheme  |  1993-06-25  |  366 b   |  10 lines
  1. ;;;
  2. ;;; Set these defaults when loading the routine.
  3. ;;;
  4. (defun S::L2CSTARTUP ()
  5.     (if (null dl:ecp) (setq dl:ecp 4))    ; default to auto endcaps
  6.     (if (null dl:snp) (setq dl:snp T))    ; default to snapping ON
  7.     (if (null dl:brk) (setq dl:brk T))    ; default to breaking ON
  8.     (if (null dl:osd) (setq dl:osd 0))    ; default to center alignment
  9. )
  10.